home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / RTANKEXE.ZIP / NEW.TXT < prev    next >
Text File  |  1989-03-01  |  393b  |  49 lines
  1. make dir
  2. make any
  3.  
  4. :again
  5. jeq hit,1,:attacked
  6.  
  7. scope dir
  8. jeq dir,cgdir,:look
  9.  
  10. call :align
  11.  
  12. :look
  13.  
  14. scan any,cgdir
  15.  
  16. jeq any,0,:again
  17.  
  18. fire
  19. fire
  20.  
  21. goto :again
  22.  
  23. :attacked
  24. move
  25. move
  26. move
  27. move
  28. right
  29. right
  30. move
  31. move
  32. goto :again
  33.  
  34. ;---------------------------
  35. :align
  36.  
  37. aim dir
  38.  
  39. jeq dir,cgdir,:goback
  40.  
  41. jeq hit,1,:goback
  42.  
  43. right
  44.  
  45. goto :align
  46.  
  47. :goback
  48. return
  49.